home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d13 / ezstart.new / SETUP.BAT < prev   
Encoding:
DOS Batch File  |  1990-11-30  |  12.0 KB  |  412 lines
  1. Echo Off
  2. :Start
  3. Cls
  4. Echo.
  5. Echo                      **************************************
  6. Echo                      **             EZPOINT              **
  7. Echo                      **  BinkleyTerm Point Installation  **
  8. Echo                      **  Copyright 1989-90 by Ron Bemis  **
  9. Echo                      **       All rights reserved.       **
  10. Echo                      **************************************
  11. Echo.
  12.  
  13. Rem Please send comments, suggestions, and improvements to Ron Bemis at
  14. Rem FidoNet 124/1113.  I spent a lot of time creating this.  If you do
  15. Rem modify this batch file, please leave my copyright notice above intact.
  16. Rem I think I deserve that much.
  17.  
  18. Echo.
  19. Echo                   At any point during this installation process,
  20. Echo                   you may press Control-C to abort the procedure.
  21. Echo.
  22.  
  23. Rem Clear the environment variables
  24. Set X=
  25. Set Bnt=
  26. Set Bnd=
  27. Set Bhx=
  28. Set Bph=
  29. Set Pwd=
  30. Set Pnt=
  31. Set Pnd=
  32. Set Fir=
  33. Set Sur=
  34. Set Dr=
  35. Set Bd=
  36. Set Prt=
  37. Set Col=
  38. Set Ed=
  39.  
  40. Rem Make sure RSet is here
  41. If Exist RSet.Exe Goto RSetOK
  42. Echo There is no RSet.Exe in this directory!
  43. Set X=Error
  44. :RSetOK
  45.  
  46. Rem Make sure Binkley is here
  47. If Exist BBig*.Zip Goto BtOK
  48. Echo There is no BBig*.Zip in this directory!
  49. Set X=Error
  50. :BtOK
  51.  
  52. Rem Make sure EZPoint is here
  53. If Exist EZPoint.Zip Goto EZPOK
  54. Echo There is no EZPoint.Zip in this directory!
  55. Set X=Error
  56. :EZPOK
  57.  
  58. Rem Make sure X00 is here
  59. If Exist X00*.Zip Goto X00OK
  60. Echo There is no X00*.Zip in this directory!
  61. Set X=Error
  62. :X00OK
  63.  
  64. Rem Make sure Ctrl is here
  65. If Exist Ctrl.Zip Goto CtrlOK
  66. Echo There is no Ctrl.Zip in this directory!
  67. Set X=Error
  68. :CtrlOK
  69.  
  70. Rem Make sure Runbink is here
  71. If Exist Runbink.Bat Goto RunOK
  72. Echo There is no Runbink.Bat in this directory!
  73. Set X=Error
  74. :RunOK
  75.  
  76. Rem Make sure EDLIN is available
  77. If Exist Test Del Test
  78. Edlin>Test
  79. If Exist Test Goto GotEdlin
  80. Echo I can't find EDLIN in your PATH.
  81. Set X=Error
  82. :GotEdlin
  83.  
  84. Rem Make sure PKUNZIP is available
  85. If Exist Test Del Test
  86. PkUnZip>Test
  87. If Exist Test Goto GotUnZip
  88. Echo I can't find PKUNZIP in your PATH.
  89. Set X=Error
  90. :GotUnZip
  91.  
  92. Rem Make sure KEY-FAKE is available
  93. If Exist Test Del Test
  94. Key-Fake>Test
  95. If Exist Test Goto KeyFakeOK
  96. Echo I can't find KEY-FAKE in your PATH.
  97. Set X=Error
  98. :KeyFakeOK
  99.  
  100. Rem Check for errors
  101. If Exist Test Del Test
  102. If "%X%" == "Error" Goto Exit
  103.  
  104. RSet level(ver())
  105. If Errorlevel 3 Goto GotDos
  106. Echo You seem to be running a version of DOS earlier than V3.0.
  107. Echo You may have problems using this installation procedure.
  108. Echo.
  109. :GotDos
  110.  
  111. RSet level(gt(env(),150))
  112. If Errorlevel 1 Goto GotEnv
  113. Echo You don't have enough environment space to run this batch file.
  114. Echo You'll need about 150 bytes free for everything to work properly.
  115. Echo Please clear out some space and run this batch file again.
  116. Echo.
  117. Goto Exit
  118. :GotEnv
  119.  
  120. :DrSet
  121. RSet Dr=up(char(On what drive will you be installing your point?,CcDdEeFfGgHhIi)):
  122. If "%Dr%" == ":" Set Dr=C:
  123. Echo.
  124.  
  125. RSet level(gt(free(%Dr%),750000))
  126. If Errorlevel 1 Goto SpaceOK
  127. RSet level(gt(free(%Dr%),400000))
  128. If Errorlevel 1 Goto Warning
  129. Echo Drive %Dr% has less than 400K of free space.
  130. Echo You won't have enough room on this drive to install this software.
  131. Echo Please free up some disk space and run this batch file again.
  132. Echo.
  133. Goto Exit
  134. :Warning
  135. Echo Drive %Dr% has less than 3/4 Megabyte of free space.
  136. Echo Running the point software here might be a little tight.
  137. Echo.
  138. :SpaceOK
  139.  
  140. RSet Bnt=string(What is your BossNode's Net number?,5)
  141. RSet level(len(%Bnt%))
  142. If Not Errorlevel 1 Set Bnt=124
  143. Echo.
  144.  
  145. RSet Bnd=string(What is your BossNode's Node number?,5)
  146. RSet level(len(%Bnd%))
  147. If Not Errorlevel 1 Set Bnd=1113
  148. Echo.
  149.  
  150. RSet Bhx=concat(%Dr%\Bink\Out\,hex(%Bnt%),hex(%Bnd%))
  151.  
  152. RSet Bph=string(What is your BossNode's Phone number?,40)
  153. RSet level(len(%Bph%))
  154. If Not Errorlevel 1 Set Bph=231-3841
  155. Echo.
  156.  
  157. Echo A password must be between 4 and 6 characters in length.
  158. :NeedPwd
  159. RSet Pwd=string(What password will you be using with your BossNode?,6)
  160. RSet level(len(%Pwd%))
  161. If Not Errorlevel 4 Goto NeedPwd
  162. Echo.
  163.  
  164. RSet Pnt=string(What is your private PointNet number?,5)
  165. RSet level(len(%Pnt%))
  166. If Not Errorlevel 1 Set Pnt=9130
  167. Echo.
  168.  
  169. :NeedPnd
  170. RSet Pnd=string(What is your assigned Point Node number?,5)
  171. RSet level(len(%Pnd%))
  172. If Not Errorlevel 1 Goto NeedPnd
  173. Echo.
  174.  
  175. :NeedName
  176. RSet X=string(What is your first name?,20)
  177. RSet level(len(%X%))
  178. If Not Errorlevel 1 Goto NeedName
  179. RSet Fir=concat(up(left(1,%X%)),low(mid(2,19,%X%)))
  180. Echo.
  181.  
  182. RSet X=string(And your last name?,20)
  183. RSet level(len(%X%))
  184. If Not Errorlevel 1 Goto NeedName
  185. RSet Sur=concat(up(left(1,%X%)),low(mid(2,19,%X%)))
  186. Echo.
  187.  
  188. RSet Bd=string(What is the highest baud rate your modem supports?,5)
  189. RSet level(len(%Bd%))
  190. If Not Errorlevel 1 Set Bd=2400
  191. Echo.
  192.  
  193. RSet Prt=char(On which COM port is your modem installed?,1234)
  194. If "%Prt%" == "" Set Prt=1
  195. Echo.
  196.  
  197. RSet Col=up(char(Do you have a Color monitor?,YyNn))
  198. If Not "%Col%" == "Y" Set Col=
  199. Echo.
  200.  
  201. RSet Ed=string(What command do you use to invoke your editor?,8)
  202. RSet level(len(%Ed%))
  203. If Not Errorlevel 1 Set Ed=EDLIN
  204.  
  205. Cls
  206. Echo.
  207. Echo.
  208. Echo.
  209. Echo Please read the following VERY carefully:
  210. Echo.
  211. Echo This software will be installed on drive %Dr%
  212. Echo The highest baud rate your modem supports is %Bd%
  213. Echo Your modem is installed on COM%Prt%
  214. Echo Your BossNode is %Bnt%/%Bnd% and his phone number is %Bph%
  215. Echo The password you will use with your BossNode is '%Pwd%'
  216. Echo Your point number is %Pnt%/%Pnd% and your name is %Fir% %Sur%
  217. If "%Col%" == "Y" Echo You have a color monitor
  218. Echo Your editor is '%Ed%'
  219. Echo.
  220. RSet X=up(char(Is everything correct?,YyNn))
  221. If Not "%X%" == "Y" Goto Start
  222. Echo.
  223. Echo.
  224. Echo Okay, here goes!  Sit back and watch...
  225.  
  226. Rem Create the needed directories
  227. If Not Exist %Dr%\Bink\Nul Md %Dr%\Bink
  228. If Not Exist %Dr%\Bink\Bin\Nul Md %Dr%\Bink\Bin
  229. If Not Exist %Dr%\Bink\In\Nul Md %Dr%\Bink\In
  230. If Not Exist %Dr%\Bink\Out\Nul Md %Dr%\Bink\Out
  231. If Not Exist %Dr%\Bink\Msg\Nul Md %Dr%\Bink\Msg
  232. :DirsMade
  233.  
  234. Rem Create some small text files
  235. If Exist %Dr%\Bink\Private.Doc Goto GotPriv
  236. Echo This is a private system.>%Dr%\Bink\Private.Doc
  237. :GotPriv
  238. If Exist %Dr%\Bink\Request.Lst Goto GotReq
  239. Echo %Dr%\Bink\In\*.*>%Dr%\Bink\Request.Lst
  240. :GotReq
  241. If Exist %Dr%\Bink\Fidouser.Lst Goto GotFido
  242. Echo Bemis, Ron    1:124/1113>%Dr%\Bink\Fidouser.Lst
  243. :GotFido
  244. If Exist %Dr%\Bink\Userlist.Dog Goto GotUser
  245. Echo Areafix        %Bnt%/%Bnd%>%Dr%\Bink\Userlist.Dog
  246. :GotUser
  247.  
  248. Rem Install RSet
  249. Copy RSet.Exe %Dr%\Bink\Bin
  250.  
  251. Rem Install Binkley
  252. PkUnZip -o BBig* %Dr%\Bink\Bin BtBig.Exe Btctl.Exe
  253. PkUnZip -o BBig* %Dr%\Bink Binkley.Lng
  254.  
  255. Rem Install EZPoint
  256. PkUnZip -o EZPoint %Dr%\Bink\Bin EZPoint.Exe
  257.  
  258. Rem Install X00
  259. PkUnZip -o X00* %Dr%\Bink\Bin X00.Sys
  260.  
  261. Rem Install Control files
  262. PkUnZip -o Ctrl %Dr%\Bink
  263.  
  264. Rem Install Runbink.Bat
  265. Copy Runbink.Bat %Dr%\Bink\Bin
  266.  
  267. Rem Create the Config.Dog file
  268. Echo NAME  %Fir% %Sur%>%Dr%\Bink\Config.Dog
  269. Echo NODE  1:%Pnt%/%Pnd%>>%Dr%\Bink\Config.Dog
  270. Echo MAIL  %Dr%\Bink\Msg>>%Dr%\Bink\Config.Dog
  271. Echo FILES %Dr%\Bink\In\>>%Dr%\Bink\Config.Dog
  272.  
  273. Rem Change parameters in Message.Txt
  274. Key-Fake "1,9999R{bossnet}" 26 "%Bnt%" 13 "Ex" 13
  275. Edlin %Dr%\Bink\Message.Txt>Nul
  276. Key-Fake "1,9999R{bossnode}" 26 "%Bnd%" 13 "Ex" 13
  277. Edlin %Dr%\Bink\Message.Txt>Nul
  278. Key-Fake "1,9999R{firstname}" 26 "%Fir%" 13 "Ex" 13
  279. Edlin %Dr%\Bink\Message.Txt>Nul
  280. Key-Fake "1,9999R{pointnet}" 26 "%Pnt%" 13 "Ex" 13
  281. Edlin %Dr%\Bink\Message.Txt>Nul
  282. Key-Fake "1,9999R{pointnode}" 26 "%Pnd%" 13 "Ex" 13
  283. Edlin %Dr%\Bink\Message.Txt>Nul
  284. Key-Fake "1,9999R{root}" 26 "%Dr%\Bink" 13 "Ex" 13
  285. Edlin %Dr%\Bink\Message.Txt>Nul
  286. Del %Dr%\Bink\Message.Bak
  287.  
  288. Rem Change parameters in Binkley.Cfg
  289. Echo Editing %Dr%\Bink\Binkley.Cfg.  Please wait...
  290. Key-Fake "1,9999R{baudrate}" 26 "%Bd%" 13 "Ex" 13
  291. Edlin %Dr%\Bink\Binkley.Cfg>Nul
  292. Key-Fake "1,9999R{bossnet}" 26 "%Bnt%" 13 "Ex" 13
  293. Edlin %Dr%\Bink\Binkley.Cfg>Nul
  294. Key-Fake "1,9999R{bossnode}" 26 "%Bnd%" 13 "Ex" 13
  295. Edlin %Dr%\Bink\Binkley.Cfg>Nul
  296. Key-Fake "1,9999R{bossphone}" 26 "%Bph%" 13 "Ex" 13
  297. Edlin %Dr%\Bink\Binkley.Cfg>Nul
  298. Key-Fake "1,9999R{comport}" 26 "%Prt%" 13 "Ex" 13
  299. Edlin %Dr%\Bink\Binkley.Cfg>Nul
  300. Key-Fake "1,9999R{firstname}" 26 "%Fir%" 13 "Ex" 13
  301. Edlin %Dr%\Bink\Binkley.Cfg>Nul
  302. Key-Fake "1,9999R{password}" 26 "%Pwd%" 13 "Ex" 13
  303. Edlin %Dr%\Bink\Binkley.Cfg>Nul
  304. Key-Fake "1,9999R{pointnet}" 26 "%Pnt%" 13 "Ex" 13
  305. Edlin %Dr%\Bink\Binkley.Cfg>Nul
  306. Key-Fake "1,9999R{pointnode}" 26 "%Pnd%" 13 "Ex" 13
  307. Edlin %Dr%\Bink\Binkley.Cfg>Nul
  308. Key-Fake "1,9999R{root}" 26 "%Dr%\Bink" 13 "Ex" 13
  309. Edlin %Dr%\Bink\Binkley.Cfg>Nul
  310. Key-Fake "1,9999R{surname}" 26 "%Sur%" 13 "Ex" 13
  311. Edlin %Dr%\Bink\Binkley.Cfg>Nul
  312. Del %Dr%\Bink\Binkley.Bak
  313.  
  314. Rem Change parameters in RunBink.Bat
  315. Echo Editing %Dr%\Bink\Bin\RunBink.Bat.  Please wait...
  316. Key-Fake "1,9999R{bosshex}" 26 "%Bhx%" 13 "Ex" 13
  317. Edlin %Dr%\Bink\Bin\RunBink.Bat>Nul
  318. Key-Fake "1,9999R{drive}" 26 "%Dr%" 13 "Ex" 13
  319. Edlin %Dr%\Bink\Bin\RunBink.Bat>Nul
  320. Key-Fake "1,9999R{password}" 26 "%Pwd%" 13 "Ex" 13
  321. Edlin %Dr%\Bink\Bin\RunBink.Bat>Nul
  322. Key-Fake "1,9999R{pointnet}" 26 "%Pnt%" 13 "Ex" 13
  323. Edlin %Dr%\Bink\Bin\RunBink.Bat>Nul
  324. Key-Fake "1,9999R{pointnode}" 26 "%Pnd%" 13 "Ex" 13
  325. Edlin %Dr%\Bink\Bin\RunBink.Bat>Nul
  326. Key-Fake "1,9999R{root}" 26 "%Dr%\Bink" 13 "Ex" 13
  327. Edlin %Dr%\Bink\Bin\RunBink.Bat>Nul
  328. Del %Dr%\Bink\Bin\RunBink.Bak
  329.  
  330. Rem Create C:\Autoexec.New, new lines for C:\Autoexec.Bat
  331. Echo Add these lines to C:\Autoexec.Bat:> C:\Autoexec.New
  332. Echo.>> C:\Autoexec.New
  333. Echo Path %Dr%\Bink\Bin;...{whatever you had before}>> C:\Autoexec.New
  334. Echo Set Bbs=%Dr%\Bink>> C:\Autoexec.New
  335. Echo Set Binkley=%%BBS%%\>> C:\Autoexec.New
  336. Echo.>> C:\Autoexec.New
  337. Echo.>> C:\Autoexec.New
  338. Echo ...and at the very end of the file:>> C:\Autoexec.New
  339. Echo.>> C:\Autoexec.New
  340. Echo RSet X=Up(Char(Start Binkley?,YyNn,3))>> C:\Autoexec.New
  341. Echo If Not "%%X%%" == "N" Key-Fake "Runbink" 13>> C:\Autoexec.New
  342.  
  343. Rem Create C:\Config.New, new lines for C:\Config.Sys
  344. Echo Add to or change C:\Config.Sys to include these lines:> C:\Config.New
  345. Echo.>> C:\Config.New
  346. Echo Break=On>> C:\Config.New
  347. Echo Buffers=60>> C:\Config.New
  348. Echo Files=30>> C:\Config.New
  349. Echo Device=%Dr%\Bink\Bin\X00.Sys E>> C:\Config.New
  350.  
  351. Rem Set BBS and Binkley, switch to root directory, configure Bink and EZPoint
  352. Set BBS=%Dr%\Bink
  353. Set BINKLEY=%Dr%\Bink\
  354. %Dr%
  355. CD \Bink
  356. Bin\EZPoint /S P %Dr%\Bink\In %Dr%\Bink\Out %Dr%\Bink\Msg ^ G Y
  357. Bin\EZPoint /S W %Dr%\Bink\Message.Sav ^ G Y
  358. Bin\EZPoint /S N 1 124 1113 N %Bnt% %Bnd% ^ G Y
  359. Bin\EZPoint /S S Ron Bemis^Ron's EZPoint^"          -Ron^" ^ G Y
  360. If Not "%Col%" == "Y" Goto Mono
  361. Bin\EZPoint /S D ^ G Y
  362. :Mono
  363. Bin\EZPoint /S E %Ed%^ ^ G Y
  364. Bin\EZPoint E %Fir% %Sur% %Bnt%/%Bnd%.%Pnd% Thanks for trying EZPoint!^ * C L ^ G Y
  365. Bin\EZPoint /S N 1 %Pnt% %Pnd% Y %Bnt% %Bnd% ^ G Y
  366. Bin\EZPoint /S S %Fir% %Sur%^%Fir%'s EZPoint^"          -%Fir%^" ^ G Y
  367. Bin\BTCTL
  368.  
  369. Rem Notify the user of what he needs to change himself
  370. Cls
  371. Echo.
  372. Echo.
  373. Echo The file C:\Autoexec.New has been created.  It should be merged into
  374. Echo your current C:\Autoexec.Bat.
  375. Echo.
  376. Echo The file C:\Config.New has been created.  It should be merged into
  377. Echo your current C:\Config.Sys.
  378. Echo.
  379. Echo After editing these two files, you should reboot your system and you
  380. Echo should be off and running!  Just type "RUNBINK" at the DOS prompt to
  381. Echo start your point software.
  382. Echo.
  383. Echo When in Binkley's unattended mode, the functions keys will do the
  384. Echo following things:
  385. Echo          F1 - poll bossnode            F2 - scan all messages
  386. Echo          F3 - make a file request      F4 - send a file to boss
  387. Echo          F5 - read/write messages      F6 - process incoming mail
  388. Echo          F7 - renumber/purge messages  F8 - add echomail conference(s)
  389. Echo          F9 - delete echomail conf(s) F10 - park hard disk heads
  390. Echo.
  391. Echo Press Shift-PrtSc to print this screen.
  392. Echo.
  393. Echo.
  394.  
  395. :Exit
  396. Rem Clear the environment variables
  397. Set X=
  398. Set Bnt=
  399. Set Bnd=
  400. Set Bhx=
  401. Set Bph=
  402. Set Pwd=
  403. Set Pnt=
  404. Set Pnd=
  405. Set Fir=
  406. Set Sur=
  407. Set Dr=
  408. Set Bd=
  409. Set Prt=
  410. Set Col=
  411. Set Ed=
  412.